1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】。

3、会弹出模块编辑窗口。

4、在代码编辑窗口输入以下代码：sub 关闭文件(),Workbooks("963.xls").Close ture,Workbooks("258.xls").Close,End Sub。

5、在VBA窗口，点击【运行】按钮！即可关闭【963.xls】和【258.xls】两个文件。

6、VBA工程窗口中，这两个文件被关闭不见了。

用Alt+F11进入VBA编辑器，用Ctrl+R打开工程资源管理器，双击“ThisWorkbook”,在编辑器上方有两个下拉列表框，一个选择对象，一个选择事件，分别选“Workbook”和“Open”就可对工作簿打开事件进行编程了。

若在事件下拉列表框选择“BeforeClose”,就可对工作簿将要关闭的事件编程。

类似地，在工程资源管理器，双击“Sheet1”,在编辑器上方有两个下拉列表框，一个选择对象，一个选择事件，分别选“Worksheet”和“SelectionChange”就可对Sheet1的SelectionChange事件进行编程了。如此等等......。

操作步骤：

1、在excel工作表里按alt+f11,打开vba编程界面

2、在vba编程界面的工具栏，第二个按钮拉下来选模块

3、在左边栏的你需要计时器的那个工作表名字上双击，打开右边的程序书写区域

4、把下面的程序代码粘贴进去

privatesubworksheet_beforedoubleclick(byvaltargetasrange,cancelasboolean)

iftarget.cells.count=1and(notintersect(target.cells(1),range("b1"))isnothing)then

[b1]="开始时间"

[c1]=format(now(),"hh:mm:ss")

[d1]=timer

[d1].font.colorindex=2

[b2:d3].clearcontents

endif

iftarget.cells.count=1and(notintersect(target.cells(1),range("b2"))isnothing)then

[b2]="结束时间"

[c2]=format(now(),"hh:mm:ss")

[d2]=timer

[d2].font.colorindex=2

[b3]="总共用时"

[c3]=format([d2]-[d1],"#0.00")

[d3]="秒"

endif

target.offset(1,0).select

endsub

5、关闭vba编程界面回到工作表

6、双击b1开始计时，双击b2终止计时，用时结果在c3单元格

（特别提醒：要在exce中通过菜单“工具－宏－安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）

在宏里面设置一个全局变量，在函数里面对全局变量设置有效跟无效，并判定执行 dim mysave BooleanPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)call mysavesub '调用函数确认保存密码if mysave = false then '如果布尔类型mysave=false 则不能保存 msgbox "本工作薄禁用保存及另存。" Cancel = Trueend ifEnd Sub public sub mysavesub()psw = "123456" '保存密码if inputbox("请输入保存密码:) = psw then mysave = true '临时设置 为可以保存end if end sub

代码中，只是关闭了一个Excel文件。事实上，应该关闭整个Excel软件。VBA代码可以修改为：Sub 完成工作() ActiveWorkbook.Save ThisWorkbook.Application.Quit '或者Application.QuitEnd Sub即可。

如果知道密码的话，按快捷键ALT+F11.进入VBA界面去删除。如果不知道密码的话，可以用一些工具或者用宏程序去暴力破解。工具我知道的现在EXCEL必备工具箱比较好用

excel中使用vba关闭excel的两种方法，有需要的朋友可以参考本文，来看看吧!

　　步骤

　　1、首先我们打开一个工作样表作为例子。

　　2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

　　Sub SendKeysSample()

　　Application.SendKeys ("%fx")

　　End Sub

　　3、这个代码很简单，sendkeys是应用程序中的一个方法，作用是依次顺序发送几个按键值。对应的键值可以看出%号是alt键，fx则是键盘上对应的fx键。我们可以在excel中手动运行一下按下这三个键的作用。

　　4、按下alt+f键后会进入excel文件菜单，再次按下x，则会提示是否保存excel工作薄，选择相应属性后，关闭excel工作薄，完成退出操作。

　　5、这种是借用excel的快捷键组合操作完成的退出命令。还有一种是使用vba函数完成的操作。同样是输入对象application，并使用quit方法完成退出excel的目的。

　　Sub 关闭Excel()

　　MsgBox "Excel将会关闭"

　　Application.Quit

　　End Sub

　　6、直接运行这个过程，弹出一个msgbox提示信息，excel将会关闭。同样会在退出前提示是否保存工作薄。大家按需要选择即可。

　　以上就是excel使用vba关闭表格的两种方法介绍，操作很简单的，大家学会了吗?希望这篇文章能对大家有所帮助!

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】。

3、会弹出模块编辑窗口。

4、在代码编辑窗口输入以下代码：sub 关闭文件(),Workbooks("963.xls").Close ture,Workbooks("258.xls").Close,End Sub。

5、在VBA窗口，点击【运行】按钮！即可关闭【963.xls】和【258.xls】两个文件。

6、VBA工程窗口中，这两个文件被关闭不见了。

用Alt+F11进入VBA编辑器，用Ctrl+R打开工程资源管理器，双击“ThisWorkbook”,在编辑器上方有两个下拉列表框，一个选择对象，一个选择事件，分别选“Workbook”和“Open”就可对工作簿打开事件进行编程了。

若在事件下拉列表框选择“BeforeClose”,就可对工作簿将要关闭的事件编程。

类似地，在工程资源管理器，双击“Sheet1”,在编辑器上方有两个下拉列表框，一个选择对象，一个选择事件，分别选“Worksheet”和“SelectionChange”就可对Sheet1的SelectionChange事件进行编程了。如此等等......。

操作步骤：

1、在excel工作表里按alt+f11,打开vba编程界面

2、在vba编程界面的工具栏，第二个按钮拉下来选模块

3、在左边栏的你需要计时器的那个工作表名字上双击，打开右边的程序书写区域

4、把下面的程序代码粘贴进去

privatesubworksheet_beforedoubleclick(byvaltargetasrange,cancelasboolean)

iftarget.cells.count=1and(notintersect(target.cells(1),range("b1"))isnothing)then

[b1]="开始时间"

[c1]=format(now(),"hh:mm:ss")

[d1]=timer

[d1].font.colorindex=2

[b2:d3].clearcontents

endif

iftarget.cells.count=1and(notintersect(target.cells(1),range("b2"))isnothing)then

[b2]="结束时间"

[c2]=format(now(),"hh:mm:ss")

[d2]=timer

[d2].font.colorindex=2

[b3]="总共用时"

[c3]=format([d2]-[d1],"#0.00")

[d3]="秒"

endif

target.offset(1,0).select

endsub

5、关闭vba编程界面回到工作表

6、双击b1开始计时，双击b2终止计时，用时结果在c3单元格

（特别提醒：要在exce中通过菜单“工具－宏－安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）

在宏里面设置一个全局变量，在函数里面对全局变量设置有效跟无效，并判定执行 dim mysave BooleanPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)call mysavesub '调用函数确认保存密码if mysave = false then '如果布尔类型mysave=false 则不能保存 msgbox "本工作薄禁用保存及另存。" Cancel = Trueend ifEnd Sub public sub mysavesub()psw = "123456" '保存密码if inputbox("请输入保存密码:) = psw then mysave = true '临时设置 为可以保存end if end sub

代码中，只是关闭了一个Excel文件。事实上，应该关闭整个Excel软件。VBA代码可以修改为：Sub 完成工作() ActiveWorkbook.Save ThisWorkbook.Application.Quit '或者Application.QuitEnd Sub即可。

如果知道密码的话，按快捷键ALT+F11.进入VBA界面去删除。如果不知道密码的话，可以用一些工具或者用宏程序去暴力破解。工具我知道的现在EXCEL必备工具箱比较好用

excel中使用vba关闭excel的两种方法，有需要的朋友可以参考本文，来看看吧!

　　步骤

　　1、首先我们打开一个工作样表作为例子。

　　2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

　　Sub SendKeysSample()

　　Application.SendKeys ("%fx")

　　End Sub

　　3、这个代码很简单，sendkeys是应用程序中的一个方法，作用是依次顺序发送几个按键值。对应的键值可以看出%号是alt键，fx则是键盘上对应的fx键。我们可以在excel中手动运行一下按下这三个键的作用。

　　4、按下alt+f键后会进入excel文件菜单，再次按下x，则会提示是否保存excel工作薄，选择相应属性后，关闭excel工作薄，完成退出操作。

　　5、这种是借用excel的快捷键组合操作完成的退出命令。还有一种是使用vba函数完成的操作。同样是输入对象application，并使用quit方法完成退出excel的目的。

　　Sub 关闭Excel()

　　MsgBox "Excel将会关闭"

　　Application.Quit

　　End Sub

　　6、直接运行这个过程，弹出一个msgbox提示信息，excel将会关闭。同样会在退出前提示是否保存工作薄。大家按需要选择即可。

　　以上就是excel使用vba关闭表格的两种方法介绍，操作很简单的，大家学会了吗?希望这篇文章能对大家有所帮助!